library(dplyr) ; library(tidyr) ; library(ggplot2) ; library(ggpubr) ; library(purrr)### -- If you are generating this document for the first time### You must use generating =T, if you generating=T## -- root <- rprojroot::has_file(".git/index")datadir = root$find_file("data")funsdir = root$find_file("functions")savingdir = root$find_file("saved_files")files_vec <-list.files(funsdir)for( i in1:length(files_vec)){source(root$find_file(paste0(funsdir,'/',files_vec[i])))}################################# Loading###############################df_geo_abiotics =readRDS(file =paste0(savingdir,'/','df_geo_abiotics'))df_geo_abiotics = df_geo_abiotics %>%filter(Latitude>25) %>%mutate(SampleID=factor(SampleID))dfGrump_longer_filtered = data.table::fread(paste0(datadir,'/','phyto_gradients.csv')) %>%mutate(SampleID=factor(SampleID))#list_AitDist = readRDS(paste0(savingdir,'/','list_AitDist'))list_normalized_geo_abiotics_dists =readRDS(file =paste0(savingdir,'/','list_abio_bio_geo_dist_normallized'))list_geo_abiotics_dists =readRDS(file =paste0(savingdir,'/','list_abio_bio_geo_dist'))grid_base =readRDS(file =paste0(savingdir,'/','grid_base'))